#!/usr/bin/perl -w

while(<<>>) {
    if(/\./ | /[.]/){
        print ;
    }
}
